home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Page.ecall < prev    next >
Text File  |  1997-06-01  |  972b  |  39 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      Page.ecall                  EuraCall-Script             **
  4. **      Zeigt die aktuelle Seite an und wechselt auf Tel-Buch   **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),8)~='EURACALL' THEN ADDRESS 'EURACALL.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. page.0 = "Information"
  19. page.1 = "Kommend"
  20. page.2 = "Gehend"
  21. page.3 = "Telefonbuch"
  22.  
  23. 'PAGE'; cur = result
  24. SAY "Aktuelle Seite ist" page.cur
  25.  
  26. 'ENTRIES'; num = result
  27. SAY "Kommend =" num "Einträge"
  28.  
  29. DO ix = 0 TO num-1
  30.   'GETENTRY' ix; ent = result
  31.   SAY ent
  32. END
  33.  
  34.  
  35. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  36.  
  37. EXIT
  38.  
  39.